|
2000
|
How can I change the visual appearance of the filter bar's close button (solid)
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","12/4/2017","12/14/2017");
END
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/2/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(1) = 255");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1999
|
Is it possible to prevent definitely showing the filter bar's close button
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","12/4/2017","12/14/2017");
END
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/2/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(1) = -1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1998
|
Is it possible to show the close button only if there is a filter applied
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","12/4/2017","12/14/2017");
END
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/2/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 513);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1997
|
The control's filter bar is not closed once I click the close button (toggle)
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","12/4/2017","12/14/2017");
END
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/2/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.LockedItemCount(2) = 1");
h = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.LockedItem(2,0)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h,0) = `<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus.`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectSetProperty( g2antt , "FilterBarCaption", "`<r><fgcolor=808080>` + value");
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "B");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 2323);
column = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectCallMethod( g2antt , "ApplyFilter");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1996
|
How can I display the control's filter on a single line
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","12/4/2017","12/14/2017");
END
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/2/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( g2antt , "FilterBarCaption", "len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 18);
column = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod( g2antt , "ApplyFilter");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1995
|
How can I display the control's filter on a single line (prompt-combined)
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","12/4/2017","12/14/2017");
END
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/2/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( g2antt , "FilterBarCaption", "`<r>` + value");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 2067);
column = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod( g2antt , "ApplyFilter");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1994
|
How can I get the number of results after a filter is applied
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","12/4/2017","12/14/2017");
END
// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
FUNCTION g2anttEvents_Click()
_ObjectCallMethod( g2antt , "ClearFilter");
END
// FilterChange event - Occurs when the filter was changed.
FUNCTION g2anttEvents_FilterChange()
Message( "Items.MatchItemCount" );
Message( _ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "MatchItemCount") );
Message( _ObjectCallMethod( g2antt , "FormatABC", "value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",_ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "MatchItemCount")) );
END
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/2/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "Item");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1993
|
How can I programmatically clear the control's filter
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","12/4/2017","12/14/2017");
END
// Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
FUNCTION g2anttEvents_Click()
_ObjectCallMethod( g2antt , "ClearFilter");
END
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/2/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "B");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1992
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","12/4/2017","12/14/2017");
END
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/2/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "B");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 3);
column = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectCallMethod( g2antt , "ApplyFilter");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1991
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","12/4/2017","12/14/2017");
END
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/2/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 1);
_ObjectSetProperty( g2antt , "FilterBarPromptPattern", "B");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1990
|
Is it possible to prevent closing the control's filter bar, so it is always shown
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "AddBar", Item,"Task","12/4/2017","12/14/2017");
END
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/2/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( g2antt , "FilterBarCaption", "len(value) = 0 ? `<fgcolor=808080>no filter` : value");
_ObjectSetProperty( g2antt , "FilterBarPromptVisible", 2);
column = _ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectCallMethod( g2antt , "ApplyFilter");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1989
|
What are the options to align the percent caption
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Clip");
_ObjectSetProperty( g2antt , "ScrollBySingleLine", -1);
_ObjectSetProperty( g2antt , "DrawGridLines", -2);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowResizeChart", 6);
_ObjectSetProperty( chart , "DrawGridLines", -2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/26/2000");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task%Progress");
_ObjectSetProperty( bar , "Shortcut", "Task");
_ObjectSetProperty( bar , "Pattern", 32);
_ObjectSetProperty( bar , "Color", 10790052);
_ObjectSetProperty( bar , "StartColor", 15790320);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "OverlaidType", 4611);
_ObjectSetProperty( bar , "Height", 15);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(12) = 0.5");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(14) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(13) = `<sha ;;0>%p%`");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "no clip, (0-2)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,15) = 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,15) = 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,15) = 0");
h = _ObjectCallMethod( items , "AddItem", "clip, inside (3-5)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,15) = 5");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,15) = 4");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,15) = 3");
h = _ObjectCallMethod( items , "AddItem", "hide on min width, clip if not fit, inside (6-8)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,15) = 8");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,15) = 7");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,15) = 6");
h = _ObjectCallMethod( items , "AddItem", "hide if not fit, no clip, inside (9-11)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,15) = 11");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,15) = 10");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,15) = 9");
h = _ObjectCallMethod( items , "AddItem", "no clip, inside, outside (12-14)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,15) = 14");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,4) = 13");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,15) = 12");
h = _ObjectCallMethod( items , "AddItem", "no clip, outside (16-18)");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K1`,15) = 18");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K2`,15) = 17");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K3");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K3`,15) = 16");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1988
|
Is it possible to determine whether a bar is in the current display area
// BarResizing event - Occurs when a bar is moving or resizing.
FUNCTION g2anttEvents_BarResizing(OBJECT g2antt, INT Item, VARIANT Key)
_ObjectCallMethod( g2antt , "Refresh");
END
// DateChange event - Occurs when the first visible date is changed.
FUNCTION g2anttEvents_DateChange()
_ObjectCallMethod( g2antt , "Refresh");
END
// FormatColumn event - Fired when a cell requires to format its caption.
FUNCTION g2anttEvents_FormatColumn(OBJECT g2antt, INT Item, INT ColIndex, VARIANT Value)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
_ObjectCallMethod(g2antt, "TemplatePut", Item)
s = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.ItemBar(Item,`A`,1)");
e = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.ItemBar(Item,`A`,2)");
l = _ObjectCallMethod( g2antt , "FormatABC", "A < B",e,_ObjectGetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate"));
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
r = _ObjectCallMethod( g2antt , "FormatABC", "A > B",s,_ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.DateFromPoint(1,-1)"));
Value = _ObjectCallMethod( g2antt , "FormatABC", "( A or B ) ? `<fgcolor=C0C0C0>hidden` : `<b>visible`",l,r);
END
// LayoutChanged event - Occurs when column's position or column's size is changed.
FUNCTION g2anttEvents_LayoutChanged()
_ObjectCallMethod( g2antt , "Refresh");
END
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SelBackMode", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Visible");
_ObjectSetProperty( column , "FireFormatColumn", -1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(17) = 1");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "OverviewVisible", -1);
_ObjectSetProperty( chart , "OverviewHeight", 64);
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
_ObjectSetProperty( g2antt , "SelBackColor", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "SelForeColor", _ObjectGetProperty( g2antt , "ForeColor"));
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/8/2017","A");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2018","8/10/2018","A");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2019","8/12/2019","A");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(FocusItem) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1987
|
How can I ensure that the bar fits the control's client area
// SelectionChanged event - Fired after a new item has been selected.
FUNCTION g2anttEvents_SelectionChanged()
h = _ObjectGetProperty( _ObjectGetProperty( g2antt , "Items") , "FocusItem");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
_ObjectCallMethod(g2antt, "TemplatePut", h)
k = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.FirstItemBar(h)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,h,k")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "TemplatePut", k)
s = _ObjectCallMethod( g2antt , "FormatABC", "(A+B)/2",_ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.ItemBar(h,k,1)"),_ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.ItemBar(h,k,2)"));
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Chart") , "ScrollTo", s,1);
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SelBackMode", 1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/8/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2018","8/10/2018");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2019","8/12/2019");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(FocusItem) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1986
|
Is it possible to change the caption from a column without to remove the column and add it with the new caption
OBJECT g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "ColumnName") , "Caption", "NewName");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "ColumnName") , "HTMLCaption", "<b>New</b>Name");
|
|
1985
|
How can I display the bar's duration in days, minutes, and so so on
OBJECT chart,column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Tasks") , "AllowSizing", 0);
column = _ObjectCallMethod( columns , "Add", "Duration");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 513");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(19) = `A`");
_ObjectSetProperty( column , "FormatColumn", "trim((1:=int((0:=value)/365) ? =:1 + ` year(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*365)))/31) ? =:1 + ` month(s) ` : ``) + (1:=i" +
"nt((0:=(=:0 - (=:1*31)))/7) ? =:1 + ` week(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*7)))/1) ? =:1 + ` day(s) ` : ``) + (1:=int((0:=(" +
"=:0 - =:1 + 1/24/60/60/2))*24) ? =:1 + ` hour(s) ` : ``) + (1:=int((0:=(=:0*24 - =:1))*60) ? =:1 + ` min(s) ` : ``) + (1:=int((0" +
":=(=:0*60 - =:1))*60) ? =:1 + ` sec(s)` : ``))");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/30/2001");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 196");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
_ObjectSetProperty( chart , "OverviewVisible", -1);
_ObjectSetProperty( chart , "OverviewHeight", 64);
_ObjectSetProperty( chart , "ResizeUnitScale", 16777216);
_ObjectSetProperty( chart , "AllowResizeChart", 262);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","12/31/2001","1/7/2002","A");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/1/2002","2/14/2002","A");
h = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2002 10:00:00 AM","1/2/2002 12:00:00 PM","A");
h = _ObjectCallMethod( items , "AddItem", "Task 4");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2002","1/4/2002 8:30:30 AM","A");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1984
|
How can I change the background color for checked items (EBN color, frame)
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION g2anttEvents_CellStateChanged(OBJECT g2antt, INT Item, INT ColIndex)
_ObjectCallMethod( g2antt , "Refresh");
END
OBJECT appearance,bar,chart,column,conditionalformat,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectSetProperty( g2antt , "SelBackMode", 1);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEc" +
"x9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJc" +
"FqXFSLVxNBKAQEBA=");
_ObjectCallMethod( appearance , "Add", 1,"CP:2 1 1 -1 -1");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%CS0 = 1");
_ObjectSetProperty( conditionalformat , "BackColor", 16777216);
_ObjectSetProperty( conditionalformat , "ChartBackColor", _ObjectGetProperty( conditionalformat , "BackColor"));
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1983
|
How can I change the caption of the checked items (sample 2)
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectSetProperty( g2antt , "SelBackColor", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "SelForeColor", _ObjectGetProperty( g2antt , "ForeColor"));
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value");
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1982
|
How can I change the caption of the checked items (sample 1)
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)");
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1981
|
How can I change the font for the checked items
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION g2anttEvents_CellStateChanged(OBJECT g2antt, INT Item, INT ColIndex)
_ObjectCallMethod( g2antt , "Refresh");
END
OBJECT bar,chart,column,conditionalformat,f,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 22);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%CS0 = 1");
f = CreateObject("StdFont");
_ObjectSetProperty( f , "Name", _ObjectGetProperty( _ObjectGetProperty( g2antt , "Font") , "Name"));
_ObjectSetProperty( f , "Size", 12);
_ObjectSetProperty( conditionalformat , "Font", f);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 196");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1980
|
How can I bold the checked items
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION g2anttEvents_CellStateChanged(OBJECT g2antt, INT Item, INT ColIndex)
_ObjectCallMethod( g2antt , "Refresh");
END
OBJECT bar,chart,column,conditionalformat,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%CS0 = 1");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1979
|
How can I change the foreground color for checked items
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION g2anttEvents_CellStateChanged(OBJECT g2antt, INT Item, INT ColIndex)
_ObjectCallMethod( g2antt , "Refresh");
END
OBJECT bar,chart,column,conditionalformat,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectSetProperty( g2antt , "SelBackMode", 1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%CS0 = 1");
_ObjectSetProperty( conditionalformat , "ForeColor", 8421631);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1978
|
How can I change the background color for checked items (solid color)
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION g2anttEvents_CellStateChanged(OBJECT g2antt, INT Item, INT ColIndex)
_ObjectCallMethod( g2antt , "Refresh");
END
OBJECT bar,chart,column,conditionalformat,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectSetProperty( g2antt , "SelBackMode", 1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%CS0 = 1");
_ObjectSetProperty( conditionalformat , "BackColor", 8421631);
_ObjectSetProperty( conditionalformat , "ChartBackColor", _ObjectGetProperty( conditionalformat , "BackColor"));
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1977
|
How can I change the color for checked Task bars
OBJECT bar,chart,column,conditionalformat,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%CS0 = 1");
_ObjectSetProperty( conditionalformat , "ApplyToBars", "Task,Summary");
_ObjectSetProperty( conditionalformat , "BarColor", 255);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1976
|
I have defined "NonWorkingHours" for the Gantt, and the "exBarWorkingCount" properly excludes these hours as long as the Gantt is using "exDay" or "exHour" as the level unit. However when displaying a quarter or a year, I'm changing the unit to "exWeek", but then the "NonWorkingHours" are no longer excluded from the bars "exBarWorkingCount" and displays the wrong value
OBJECT chart,column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Tasks") , "AllowSizing", 0);
column = _ObjectCallMethod( columns , "Add", "Working");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 258");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(19) = `A`");
_ObjectSetProperty( column , "FormatColumn", "((1:=int(0:=( 24*int(value) + (value - int(value) + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((" +
"1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Items") , "AllowCellValueToItemBar", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowResizeChart", 262);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 196");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/3/2002");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).Label = `<%ddd%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).Label = `<%hh%>`");
_ObjectSetProperty( chart , "NonworkingHours", 16761855);
_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
_ObjectSetProperty( chart , "OverviewVisible", -1);
_ObjectSetProperty( chart , "OverviewHeight", 64);
_ObjectSetProperty( chart , "AllowOverviewZoom", 1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2002","1/8/2002","A");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,20) = True");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2002","1/4/2002","A");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`A`,20) = True");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod( chart , "ScrollTo", _ObjectGetProperty( chart , "FirstVisibleDate"),1);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1975
|
Is it possible to customize the editor selection colour of the built in text editor, from standard blue to black
OBJECT editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "SelBackColor", 0);
_ObjectSetProperty( g2antt , "SelForeColor", 16777215);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Edit") , "Editor");
_ObjectSetProperty( editor , "EditType", 8);
_ObjectSetProperty( editor , "Mask", ";;;rich");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "Just a text");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1974
|
Is it possible to customize the editor selection colour of the built in dropdown editor, from standard blue to black
OBJECT editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SelBackColor", 0);
_ObjectSetProperty( g2antt , "SelForeColor", 16777215);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "DropDown") , "Editor");
_ObjectCallMethod( editor , "AddItem", 1,"This is just the first item");
_ObjectCallMethod( editor , "AddItem", 2,"This is just the second item");
_ObjectCallMethod( editor , "AddItem", 3,"This is just the third item");
_ObjectSetProperty( editor , "EditType", 2);
_ObjectSetProperty( editor , "Mask", ";;;rich");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "Just a text");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1973
|
When I display the chart in the daily view, the histogram shows correctly the data while if the chart displays the data in weekly or monthly view, the histogram shows no data or incorrectly. What can be the problem
// OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area.
FUNCTION g2anttEvents_OverviewZoom()
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "ResizeUnitScale", 4096);
END
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Effort");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 21");
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 4);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowOverviewZoom", 1);
_ObjectSetProperty( chart , "OverviewZoomCaption", "|||<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|||");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(0) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(1) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(2) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(17) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(65536) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(1048576) = ``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Label(16777216) = ``");
_ObjectSetProperty( chart , "OverviewZoomUnit", 64);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectSetProperty( chart , "FirstVisibleDate", "6/20/2005");
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramHeight", 128);
_ObjectSetProperty( chart , "HistogramView", 112);
_ObjectSetProperty( chart , "OverviewVisible", -1);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramPattern", _ObjectGetProperty( bar , "Pattern"));
_ObjectSetProperty( bar , "HistogramType", 0);
_ObjectSetProperty( bar , "HistogramCriticalValue", 3);
_ObjectSetProperty( bar , "HistogramItems", -7);
_ObjectSetProperty( bar , "HistogramGridLinesColor", 12632256);
_ObjectSetProperty( bar , "HistogramRulerLinesColor", 65536);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/21/2005","6/23/2005");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 4");
h1 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/24/2005","6/26/2005");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 3");
h1 = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/27/2005","6/29/2005");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 2");
h1 = _ObjectCallMethod( items , "AddItem", "Task 4");
_ObjectCallMethod( items , "AddBar", h1,"Task","6/30/2005","7/2/2005");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1972
|
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
FUNCTION g2anttEvents_BeforeExpandItem(OBJECT g2antt, INT Item, VARIANT Cancel)
Message( "BeforeExpandItem" );
Message( Item );
Message( "ColumnFromPoint" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "ColumnFromPoint(-1,-1)") );
Message( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." );
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Items") , "InsertItem", Item,"","new child");
END
OBJECT columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Items") , "DisplayFilterButton", -1);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHasChildren(InsertItem(,,`Group 1`)) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemHasChildren(InsertItem(,,`Group 2`)) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1971
|
How do I change the drop down filter icon/button (black)
OBJECT appearance,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(32) = -1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(0) = 16777216");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(26) = 65536");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(27) = 16777215");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Description(25) = `<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>`");
_ObjectSetProperty( g2antt , "HeaderAppearance", 0);
_ObjectSetProperty( g2antt , "BackColorHeader", 0);
_ObjectSetProperty( g2antt , "ForeColorHeader", 16777215);
_ObjectSetProperty( g2antt , "HeaderVisible", -1);
_ObjectSetProperty( g2antt , "BackColorLevelHeader", _ObjectGetProperty( g2antt , "BackColor"));
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Filter");
_ObjectSetProperty( column , "FilterList", 8448);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "AllowDragging", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 196");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "BackColorLevelHeader", _ObjectGetProperty( g2antt , "BackColorHeader"));
_ObjectSetProperty( chart , "ForeColorLevelHeader", _ObjectGetProperty( g2antt , "ForeColorHeader"));
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "One");
_ObjectCallMethod( items , "AddItem", "Two");
_ObjectCallMethod( items , "AddItem", "Three");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1970
|
How do I change the z-order of the bars (percent)
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
b = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.BarFromPoint(-1,-1)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(g2antt, "TemplatePut", c)
_ObjectCallMethod(g2antt, "TemplatePut", hit)
i = _ObjectCallMethod(g2antt, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,b,i")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
_ObjectCallMethod(g2antt, "TemplatePut", b)
_ObjectCallMethod(g2antt, "TemplatePut", i)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.ItemBar(i,b,6)") );
END
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 52);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "10/10/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectSetProperty( chart , "MarkTodayColor", _ObjectGetProperty( chart , "BackColor"));
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task%Progress") , "Shortcut", "Task");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","T1");
_ObjectSetProperty( bar , "Color", 255);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(12) = 0.25");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(39) = Color");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(18) = 10");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(14) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(13) = `<font ;6><b>%p%</b>`");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","T2");
_ObjectSetProperty( bar , "Height", 26);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(5) = 16");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(12) = 0.25");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(39) = Color");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(14) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(13) = `<font ;6><b>%p%</b>`");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h1,"T1","10/15/2017","10/25/2017","2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`2`,17) = `Bar A`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`2`,6) = `Bar A <b>Over</b> Bar B`");
_ObjectCallMethod( items , "AddBar", h1,"T2","10/18/2017","10/22/2017","1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`1`,17) = `Bar B`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`1`,6) = `Bar B <b>Under</b> Bar A`");
h1 = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h1,"T1","10/15/2017","10/25/2017","1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`1`,17) = `Bar A`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`1`,6) = `Bar A <b>Under</b> Bar B`");
_ObjectCallMethod( items , "AddBar", h1,"T2","10/18/2017","10/22/2017","2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`2`,17) = `Bar B`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`2`,6) = `Bar B <b>Over</b> Bar A`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1969
|
How do I change the z-order of the bars
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION g2anttEvents_MouseMove(OBJECT g2antt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Chart"))
b = _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.BarFromPoint(-1,-1)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(g2antt, "TemplatePut", c)
_ObjectCallMethod(g2antt, "TemplatePut", hit)
i = _ObjectCallMethod(g2antt, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim _ObObj,b,i")
_ObjectCallMethod(g2antt, "TemplatePut", _ObjectGetProperty( g2antt , "Items"))
_ObjectCallMethod(g2antt, "TemplatePut", b)
_ObjectCallMethod(g2antt, "TemplatePut", i)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "_ObObj.ItemBar(i,b,6)") );
END
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 52);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "10/10/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "NonworkingDays", 0);
_ObjectSetProperty( chart , "MarkTodayColor", _ObjectGetProperty( chart , "BackColor"));
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","T1");
_ObjectSetProperty( bar , "Color", 255);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","T2");
_ObjectSetProperty( bar , "Height", 25);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(5) = 16");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h1,"T1","10/15/2017","10/25/2017","2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`2`,17) = `Bar A`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`2`,6) = `Bar A <b>Over</b> Bar B`");
_ObjectCallMethod( items , "AddBar", h1,"T2","10/18/2017","10/22/2017","1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`1`,17) = `Bar B`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`1`,6) = `Bar B <b>Under</b> Bar A`");
h1 = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h1,"T1","10/15/2017","10/25/2017","1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`1`,17) = `Bar A`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`1`,6) = `Bar A <b>Under</b> Bar B`");
_ObjectCallMethod( items , "AddBar", h1,"T2","10/18/2017","10/22/2017","2");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`2`,17) = `Bar B`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h1,`2`,6) = `Bar B <b>Over</b> Bar A`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1968
|
How do I get the duration/working count of the bar (sample 6,excrd)
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DefaultItemHeight", 48);
_ObjectSetProperty( g2antt , "ShowFocusRect", 0);
_ObjectSetProperty( g2antt , "SelBackMode", 1);
_ObjectSetProperty( g2antt , "BackColorLevelHeader", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawGridLines", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/26/2001");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split");
_ObjectSetProperty( bar , "Shortcut", "Task");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(6) = `<%=%263%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(18) = -12");
_ObjectSetProperty( chart , "ColumnsFormatLevel", "1,2/3");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Duration");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 513");
_ObjectSetProperty( column , "Visible", 0);
_ObjectSetProperty( column , "Alignment", 0);
_ObjectSetProperty( column , "FormatColumn", "value + `d`");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Working");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 258");
_ObjectSetProperty( column , "Visible", 0);
_ObjectSetProperty( column , "Alignment", 2);
_ObjectSetProperty( column , "FormatColumn", "value + `w`");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Working-Period");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 263");
_ObjectSetProperty( column , "Visible", 0);
_ObjectSetProperty( column , "Alignment", 1);
_ObjectSetProperty( column , "FormatColumn", "((value replace `\r\n` with `,`) replace `#` with ``) replace ` ` with ``");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2002","1/11/2002");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/3/2002","1/15/2002");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","12/31/2001","1/13/2002");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1967
|
How do I get the duration/working count of the bar (sample 5)
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION g2anttEvents_AddItem(OBJECT g2antt, INT Item)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemMaxHeight(Item) = 64");
END
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "BackColorAlternate", 15790320);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2002");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split");
_ObjectSetProperty( bar , "Shortcut", "Task");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(6) = `<%=%263%>`");
_ObjectSetProperty( chart , "ColumnsFormatLevel", "1,2");
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 48);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Duration");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 513");
_ObjectSetProperty( column , "Visible", 0);
_ObjectSetProperty( column , "Alignment", 0);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Working");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 258");
_ObjectSetProperty( column , "Visible", 0);
_ObjectSetProperty( column , "Alignment", 2);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Working-Period");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 263");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(16) = False");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2002","1/12/2002");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/3/2002","1/15/2002");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/4/2002","1/16/2002");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1966
|
How do I get the duration/working count of the bar (sample 4)
OBJECT chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/26/2001");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
_ObjectSetProperty( chart , "ColumnsFormatLevel", "1,2");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task") , "Width", 48);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Duration");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 513");
_ObjectSetProperty( column , "Visible", 0);
_ObjectSetProperty( column , "Alignment", 0);
_ObjectSetProperty( column , "FormatColumn", "value + `d`");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Working");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 258");
_ObjectSetProperty( column , "Visible", 0);
_ObjectSetProperty( column , "Alignment", 2);
_ObjectSetProperty( column , "FormatColumn", "value + `w`");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2002","1/12/2002");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/3/2002","1/15/2002");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1965
|
How do I get the duration/working count of the bar (sample 3)
// BarResizing event - Occurs when a bar is moving or resizing.
FUNCTION g2anttEvents_BarResizing(OBJECT g2antt, INT Item, VARIANT Key)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,Item,Key")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", Item)
_ObjectCallMethod(g2antt, "TemplatePut", Key)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellCaption(Item,0)") );
Message( "Working" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(Item,Key,258)") );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellCaption(Item,0)") );
Message( "Duration" );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(Item,Key,513)") );
END
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/26/2001");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task") , "Width", 48);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2002","1/12/2002");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/3/2002","1/15/2002");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1964
|
How do I get the duration/working count of the bar (sample 2)
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/26/2001");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split");
_ObjectSetProperty( bar , "Shortcut", "Task");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<%=%258%>w`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(44) = `<%=%513%>d`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(45) = 16");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task") , "Width", 48);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2002","1/12/2002");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/3/2002","1/15/2002");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1963
|
How do I get the duration/working count of the bar (sample 1)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 196");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2002");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task:Split") , "Shortcut", "Task");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task") , "Width", 48);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Duration`).Def(18) = 513");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Working`).Def(18) = 258");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2002","1/12/2002");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/3/2002","1/15/2002");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1962
|
How can I draw a solid frame around the the focusing item
OBJECT appearance,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SingleSel", 0);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 20);
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectSetProperty( appearance , "RenderType", -1);
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABOkGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeDYMiSNoYDJCM4wH" +
"IURRJFCUJSGWQpTgSIgyT5HFIxXKoASbJabZLhWS6EpWOotTbIQQRYCkEyfKKfZyGURZQqOKA1DBZErWTJESRFJqLazgO4LAhyQYrVgAErzVKVCRNOqbJzADApdpGQJT" +
"ULDNTQHRFIyhOSnIRrWbMAhid6JUZiVT4dBOIYhSYANAqCwLFqrDJmWrpV5WZjlZ47V6BdAyXJsIrmFJEXaOGhyDDlGybSDZYryfZhUziUw4XjbWwZDqPF6DKTTdSGLR" +
"EE8WZVlURZvDaep3C+AY8kAYRgGCCBJECUhjDoHROEYWgoAGTQ1CEEx9lGMY0CQUYSnuZQDBGBYFlOH5+H+igGAKAJgEgFgGgGVgDn4CoCmCSA2A6A5hAgDgQgSYRIE4" +
"EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAoLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ2AYOpWlQDQBICA=");
_ObjectSetProperty( g2antt , "ShowFocusRect", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(19) = 16777216");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 1");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "P1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1961
|
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 2)
OBJECT appearance,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SingleSel", 0);
_ObjectSetProperty( g2antt , "DefaultItemHeight", 20);
_ObjectSetProperty( g2antt , "ShowFocusRect", -1);
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectSetProperty( appearance , "RenderType", -1);
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeCRUgyJI3RgMUIzV" +
"AcRRFEiUJQlIZZCjOAw0SIMU7xZRcNxsACnaZnCR4NiuRYiUhOcqzRIQIQ4CiEahqOgJbDUJYwWZKAyjBY8XTZFCSJCpeJ6egOc5jRxQUp1WAEXx3GSsJKvCZ5cADBY+" +
"VLQNS0JBtMSTKSLaiuWoIJqCPaDRheWKQJh1NSnLqEcjyYANDxDCZlWzAYxWTZ2Uz7N7PbB0HY4DyPGKZYrfESVRbQcZNS6nNigPI9XhfGq6VjRe63ZaOaYpWrnOJqTR" +
"WjOKYujWdZ2BGO5lkuBAAkmcQkDmDBEAwEQJCgGhMGcQ4pkiSxGAAOYmkQIhvkYNg2gSCgyj+LI4GIMIwF2XQoAYAoAmASAWAaAZgggJgKFiT54DYDoDmECBGBKBJgGg" +
"TgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChiigYgsgsYYYBYMIKCMKJOCuDRjGiOgLg6Y5InYPoPmQCAkmsXAQDQBCAg=");
_ObjectCallMethod( appearance , "Add", 3,"CP:2 -3 0 3 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(19) = 50397441");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 1");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "P1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1960
|
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 1)
OBJECT appearance,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SingleSel", 0);
_ObjectSetProperty( g2antt , "ShowFocusRect", -1);
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" +
"AceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrE" +
"J7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo" +
"7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DY" +
"Bg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQO" +
"COXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoR" +
"oNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtA" +
"sMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJw" +
"NkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQ" +
"fQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6A" +
"OBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQH" +
"IMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSW" +
"JajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw" +
"1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHK" +
"UggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4J" +
"EYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+T" +
"ZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA=");
_ObjectCallMethod( appearance , "Add", 3,"CP:2 -2 0 2 0");
_ObjectSetProperty( g2antt , "SelBackColor", 16777216);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Background(19) = 67043328");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "P1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1959
|
How can I display the start/end margins of bars, when cursor hovers it like a tooltip
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "exBarToolTip");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Def(6) = `<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>`");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Bar.Def"),"Task","1/2/2001","1/9/2001","K1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Bar.Def"),"Task","1/3/2001","1/10/2001","K1");
h = _ObjectCallMethod( items , "AddItem", "Items.ItemBar");
_ObjectCallMethod( items , "AddBar", h,"Unknown","1/4/2001","1/11/2001","K");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`K`,6) = `Start:<%=%1%><br>End:<%=%2%>`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1958
|
Is it possible to define different kinds of summary bars with using the EBN files
OBJECT appearance,bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
appearance = _ObjectGetProperty( g2antt , "VisualAppearance");
_ObjectSetProperty( appearance , "RenderType", -16777216);
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABN0GACAADACAxRDAMgBQKAAzQFAYahuGSGAAGMYxQgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQyDAAUIjOKsIhkGYcZAGQBJCjWGodQLOEgwH" +
"IERQjEyUJAGGQIHhyPYbUbGUpQHKkeRtGqgBgoKhKEouNYgAbGYIwTRsdyfDSXBpEWwbDgkNQwWTDNoRDIUQStCysaYjOpnfrUAJ1P7FdQ1NJkXRhGSSK7maapaiCSZ6" +
"STCMj1FhVKSNJ7DQKhGpgKh/ApgYpQOK4fLNXyRBK4QAyKA6bgPFZOZbFViaXY1V5bNKrcjhHQwAyHJ4XXRdV4YRAkUT4GqiJKGSYcQhuXZWbRqO6ABhef6DRThc6jKp" +
"FHIE4llEcojHqSZNgoIxnlgd5thsLREleL43gsYZ9BkaAYkMAgAm+CxGDWWAtiKCRfjcdRgHoHYnicUwgAIEIREAaQYkcQZUHIGRUDQJBOEYRAhDYCxGgMZAkCgdYQha" +
"XQIAYERwQuahXggdgeG6VZ4H4IhdiIGIOB8YIiGiHZZgqYpGF4KYHiKCI+CAU5jCiTQ2g0YhEFyax4gABAEIC");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABU0IQAAYAQGKQYhiAKBQAGaAoDDcMA4QwAAyjAKMEwsACEIrjKCRShyCYZRhGcTAJBMIhiGQYAChEZxVhEMgzDjIAxSJAcQRFESaAABGCQG" +
"h+N4/S4NIi0CIsZQjCaiZ7pKA5bgMCo+UrNMixZQVCSOGChYRpCaZWpGGodQRUFbVHAlKypJKCKrEWSrDhuYAAW7XM7yBS1TzVNSuLZtaLqSroAJ1WTWMB0Ra8NzZEKf" +
"aZACj4arKejrRDCMAggI=");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
_ObjectSetProperty( bar , "Color", 1);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
_ObjectSetProperty( bar , "Color", 33554432);
items = _ObjectGetProperty( g2antt , "Items");
hSummaryJ = _ObjectCallMethod( items , "AddItem", "Summary A");
_ObjectCallMethod( items , "AddBar", hSummaryJ,"Summary","1/2/2001","1/2/2001","J");
hTaskJ = _ObjectCallMethod( items , "InsertItem", hSummaryJ,"","Task A.1");
_ObjectCallMethod( items , "AddBar", hTaskJ,"Task","1/2/2001","1/5/2001","J1");
hTaskJ = _ObjectCallMethod( items , "InsertItem", hSummaryJ,"","Task A.2");
_ObjectCallMethod( items , "AddBar", hTaskJ,"Task","1/4/2001","1/8/2001","J2");
_ObjectCallMethod( items , "DefineSummaryBars", hSummaryJ,"J",-1,"<*>");
hSummaryK = _ObjectCallMethod( items , "AddItem", "Summary B");
_ObjectCallMethod( items , "AddBar", hSummaryK,"Summary","1/2/2001","1/2/2001","K");
hTaskK = _ObjectCallMethod( items , "InsertItem", hSummaryK,"","Task B.1");
_ObjectCallMethod( items , "AddBar", hTaskK,"Task","1/2/2001","1/5/2001","K1");
hTaskK = _ObjectCallMethod( items , "InsertItem", hSummaryK,"","Task B.2");
_ObjectCallMethod( items , "AddBar", hTaskK,"Task","1/4/2001","1/8/2001","K2");
_ObjectCallMethod( items , "DefineSummaryBars", hSummaryK,"K",-1,"<*>");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<K*>`,33) = 255");
hSummaryZ = _ObjectCallMethod( items , "AddItem", "Summary B");
_ObjectCallMethod( items , "AddBar", hSummaryZ,"Summary","1/2/2001","1/2/2001","Z");
hTaskZ = _ObjectCallMethod( items , "InsertItem", hSummaryZ,"","Task B.1");
_ObjectCallMethod( items , "AddBar", hTaskZ,"Task","1/2/2001","1/5/2001","Z1");
hTaskZ = _ObjectCallMethod( items , "InsertItem", hSummaryZ,"","Task B.2");
_ObjectCallMethod( items , "AddBar", hTaskZ,"Task","1/4/2001","1/8/2001","Z2");
_ObjectCallMethod( items , "DefineSummaryBars", hSummaryZ,"Z",-1,"<*>");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hSummaryZ")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hSummaryZ)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(hSummaryZ,`Z`,33) = 16842496");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<Z1>`,33) = 50266112");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<Z2>`,33) = 33554176");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(0) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1957
|
How can I display the week-number in ISO8601 format
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/12/2007");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "UnitScale", 256);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(0).FormatLabel = `value + `<r><off -4><fgcolor=808080><font ;6>` + year(dvalue)`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Level(1).FormatLabel = `(value = 1 ? `<bgcolor=000000><fgcolor=FFFFFF>` : ``) + value`");
_ObjectSetProperty( chart , "WeekNumberAs", 0);
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1956
|
I have a column right-aligned. How can I display its check box aligned to the right, as it appears to the left of the cell's caption
OBJECT column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "DrawGridLines", 2);
columns = _ObjectGetProperty( g2antt , "Columns");
column = _ObjectCallMethod( columns , "Add", "Left");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 96);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "FormatColumn", "0 pos `A-Z`");
column = _ObjectCallMethod( columns , "Add", "Center");
_ObjectSetProperty( column , "HeaderAlignment", 1);
_ObjectSetProperty( column , "Alignment", _ObjectGetProperty( column , "HeaderAlignment"));
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 96);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "FormatColumn", "0 pos `A-Z`");
column = _ObjectCallMethod( columns , "Add", "Right");
_ObjectSetProperty( column , "HeaderAlignment", 2);
_ObjectSetProperty( column , "Alignment", _ObjectGetProperty( column , "HeaderAlignment"));
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 96);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "FormatColumn", "0 pos `A-Z`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(34) = `caption,check,icon,icons,picture`");
_ObjectCallMethod( columns , "Add", "");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 1`),3) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 2`),2) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 3`),1) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1955
|
Can I display the column's multiple-lines caption vertically oriented (method 2)
OBJECT column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "HeaderHeight", 48);
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "And others ...");
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "First Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "<c><b>Second Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "<r>Third Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 2);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 1`),3) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 2`),2) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 3`),1) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1954
|
Can I display the column's multiple-lines caption vertically oriented (method 1)
OBJECT column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "HeaderHeight", 48);
_ObjectSetProperty( g2antt , "HeaderSingleLine", 0);
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "And others ...");
column = _ObjectCallMethod( columns , "Add", "First Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "Second Column");
_ObjectSetProperty( column , "HeaderBold", -1);
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "Third Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 2);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 1`),3) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 2`),2) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 3`),1) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1953
|
Can I display the column's caption vertically oriented (method 2)
OBJECT column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "HeaderHeight", 48);
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "And others ...");
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "First");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "<c><b>Second");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "<r>Third");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 2);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 1`),3) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 2`),2) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 3`),1) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1952
|
Can I display the column's caption vertically oriented (method 1)
OBJECT column,columns,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "HeaderHeight", 48);
_ObjectSetProperty( g2antt , "ColumnAutoResize", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( g2antt , "Columns");
_ObjectCallMethod( columns , "Add", "And others ...");
column = _ObjectCallMethod( columns , "Add", "First");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "Second");
_ObjectSetProperty( column , "HeaderBold", -1);
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "Third");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 2);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 1`),3) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 2`),2) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 3`),1) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1951
|
How can I resize all task-bars 0-length
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2017","8/3/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2017","8/13/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/5/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`itembar(513) = 0 and itembar(0) = `Task``,33) = 255");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`itembar(513) = 0 and itembar(0) = `Task``,513) = `value + 1`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1950
|
Is it possible to mark items that holds items with 0-length (zero,empty, sample 3)
OBJECT chart,column,conditionalformat,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Duration");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(18) = 513");
_ObjectSetProperty( column , "Visible", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%1 = 0");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "BackColor", 12500670);
_ObjectSetProperty( conditionalformat , "ChartBackColor", _ObjectGetProperty( conditionalformat , "BackColor"));
items = _ObjectGetProperty( g2antt , "Items");
_ObjectSetProperty( items , "AllowCellValueToItemBar", -1);
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2017","8/3/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2017","8/13/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/5/2017");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1949
|
Is it possible to mark items that holds items with 0-length (zero,empty, sample 2)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2017","8/3/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2017","8/13/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/5/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`itembar(513) = 0`,3) = ``zero-length``");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1948
|
Is it possible to mark items that holds items with 0-length (zero,empty, sample 1)
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2017","8/3/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2017","8/13/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/5/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`itembar(513) = 0`,53) = ``[frame=RGB(255,0,0),framethick,pattern=6,patterncolor=RGB(255,0,0)]``");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`itembar(513) = 0`,55) = ``-4,-4,4,4``");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1947
|
How can I find how many tasks/bars of 0-length (zero,empty) do I have
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2017","8/3/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2017","8/13/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/5/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`itembar(513) = 0`,256)") );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1946
|
How can I remove all bars from selected items
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SingleSel", 0);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "SelBackColor", 15790320);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "OverlaidType", 3);
_ObjectSetProperty( bar , "OverlaidGroup", "Task,Task-Diff");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<font ;6><%=%0%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","Task-Diff");
_ObjectSetProperty( bar , "Height", 4);
_ObjectSetProperty( bar , "Color", 255);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<font ;6><%=%0%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 16");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","8/3/2017","8/9/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h,"Task","8/4/2017","8/13/2017","");
_ObjectCallMethod( items , "AddBar", h,"Task-Diff","8/5/2017","8/14/2017","P");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/16/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
Message( "Bars before remove: " );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,256)") );
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`itemisselected`,9) = ``toberemove` + value `");
_ObjectCallMethod( items , "RemoveBar", 0,"<toberemove*>");
Message( "Bars after remove: " );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,256)") );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1945
|
How can I remove task bars from selected items
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SingleSel", 0);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "SelBackColor", 15790320);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "OverlaidType", 3);
_ObjectSetProperty( bar , "OverlaidGroup", "Task,Task-Diff");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<font ;6><%=%0%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","Task-Diff");
_ObjectSetProperty( bar , "Height", 4);
_ObjectSetProperty( bar , "Color", 255);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<font ;6><%=%0%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 16");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","8/3/2017","8/9/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h,"Task","8/4/2017","8/13/2017","");
_ObjectCallMethod( items , "AddBar", h,"Task-Diff","8/5/2017","8/14/2017","P");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/16/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
Message( "Bars before remove: " );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,256)") );
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`itemisselected and itembar(0) = `Task``,9) = ``toberemove` + value `");
_ObjectCallMethod( items , "RemoveBar", 0,"<toberemove*>");
Message( "Bars after remove: " );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,256)") );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1944
|
How can I change the pattern for some bars only
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Tasks`).Def(0) = True");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","8/3/2017","8/9/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
h = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h,"Task","8/4/2017","8/13/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/16/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`cellstate(0)`,42) = 6");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1943
|
How do I apply the same effort to all bars
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "HistogramView", 112);
_ObjectSetProperty( chart , "HistogramVisible", -1);
_ObjectSetProperty( chart , "HistogramHeight", 64);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "HistogramPattern", 6);
_ObjectSetProperty( bar , "HistogramType", 1);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2017","8/9/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2017","8/13/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/16/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(True,21) = 2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1942
|
How do I apply the same percent to all bars
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Add", "Task%Progress");
_ObjectSetProperty( bar , "Shortcut", "Task");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(14) = True");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2017","8/9/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2017","8/13/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/16/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(True,12) = 0.5");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1941
|
How can I set the same duration for all bars
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2017","8/9/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2017","8/13/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/16/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(True,513) = 4");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1940
|
How do I move all bars to end at the same date-time
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2017","8/9/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2017","8/13/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/16/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(True,545) = `#8/15/2017#`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1939
|
How do I move all bars to start at the same date-time
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2017","8/9/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2017","8/13/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/16/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(True,544) = `#8/2/2017#`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1938
|
How do I apply a new color for some bars, while others should be shown with a different color
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "SelBackColor", 15790320);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "OverlaidType", 3);
_ObjectSetProperty( bar , "OverlaidGroup", "Task,Task-Diff");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<font ;6><%=%0%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","Task-Diff");
_ObjectSetProperty( bar , "Height", 4);
_ObjectSetProperty( bar , "Color", 255);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<font ;6><%=%0%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 16");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2017","8/9/2017");
h = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h,"Task","8/4/2017","8/13/2017","");
_ObjectCallMethod( items , "AddBar", h,"Task-Diff","8/5/2017","8/14/2017","P");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/16/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(True,33) = `cellcaption(0) like `*2` ? 0x0000FF : 0x00FF00`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1937
|
How do I hide some bars, and show others
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SingleSel", 0);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "SelBackColor", 15790320);
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "OverlaidType", 3);
_ObjectSetProperty( bar , "OverlaidGroup", "Task,Task-Diff");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(g2antt, "TemplatePut", bar)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<font ;6><%=%0%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 18");
bar = _ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","Task-Diff");
_ObjectSetProperty( bar , "Height", 4);
_ObjectSetProperty( bar , "Color", 255);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(3) = `<font ;6><%=%0%>`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "barObj.Def(4) = 16");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
h = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h,"Task","8/3/2017","8/9/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h,"Task","8/4/2017","8/13/2017","");
_ObjectCallMethod( items , "AddBar", h,"Task-Diff","8/5/2017","8/14/2017","P");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/16/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`-1`,19) = `itembar(0) = `Task` ? 0 : 100`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1936
|
I like how ItemBarEx works, the question is how can I remove the bars based on the same criteria
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","8/2/2017","8/6/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","8/3/2017","8/9/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","8/4/2017","8/13/2017");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","8/5/2017","8/16/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
Message( "Bars before remove: " );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,256)") );
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`cellcaption(0) like `*2 *3``,9) = ``toberemove` + value `");
_ObjectCallMethod( items , "RemoveBar", 0,"<toberemove*>");
Message( "Bars after remove: " );
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(0,`<*>`,256)") );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1935
|
Is it possible to automatically color the bar being checked
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION g2anttEvents_CellStateChanged(OBJECT g2antt, INT Item, INT ColIndex)
END
OBJECT chart,column,conditionalformat,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SelBackMode", 1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 256");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2017");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%CS0","check");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "ApplyToBars", "Task");
_ObjectSetProperty( conditionalformat , "BarColor", 65536);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Width", 256);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", _ObjectCallMethod(g2antt, "ExecuteTemplate", ".ConditionalFormats.Item(`check`).Expression")) , "FormatColumn", _ObjectCallMethod(g2antt, "ExecuteTemplate", ".ConditionalFormats.Item(`check`).Expression"));
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2017","1/12/2017");
h = _ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/3/2017","1/13/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
h = _ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2017","1/14/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(h,0) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1934
|
How do I automatically bold items being checked
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION g2anttEvents_CellStateChanged(OBJECT g2antt, INT Item, INT ColIndex)
END
OBJECT conditionalformat,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "SelBackMode", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( g2antt , "ConditionalFormats") , "Add", "%CS0","check");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Items`).Def(0) = True");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", _ObjectCallMethod(g2antt, "ExecuteTemplate", ".ConditionalFormats.Item(`check`).Expression")) , "FormatColumn", _ObjectCallMethod(g2antt, "ExecuteTemplate", ".ConditionalFormats.Item(`check`).Expression"));
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 2`),0) = 1");
_ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1933
|
Can I display the radio-button with a solid color
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "RadioImage(0) = 32699122");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "RadioImage(1) = 16777216");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Check`).Def(1) = True");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Radio 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Radio 2`),0) = 1");
_ObjectCallMethod( items , "AddItem", "Radio 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1932
|
Can I display the check-box with a solid color
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "CheckImage(0) = 32699122");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "CheckImage(1) = 16777216");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Columns.Add(`Check`).Def(0) = True");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Check 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(AddItem(`Check 2`),0) = 1");
_ObjectCallMethod( items , "AddItem", "Check 3");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1931
|
How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION g2anttEvents_CellStateChanged(OBJECT g2antt, INT Item, INT ColIndex)
END
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", 4);
_ObjectSetProperty( g2antt , "SelBackMode", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Format");
_ObjectSetProperty( column , "FormatColumn", "%CS0");
_ObjectSetProperty( column , "Caption", _ObjectGetProperty( column , "FormatColumn"));
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(5) = 8421504");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(8) = Def(5)");
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Item 1");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(InsertItem(h,,`Item 2`),0) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(InsertItem(h,,`Item 3`),0) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1930
|
How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Format");
_ObjectSetProperty( column , "FormatColumn", "%CD0");
_ObjectSetProperty( column , "Caption", _ObjectGetProperty( column , "FormatColumn"));
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(5) = 8421504");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(8) = Def(5)");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellData(AddItem(`Item 1`),0) = 1234");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellData(AddItem(`Item 2`),0) = `this is just an user data`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellData(AddItem(`Item 3`),0) = #1/1/2001#");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1929
|
How can I use the CellValue/CellCaption with ConditionalFormat/ComputedField/FormatColumn
OBJECT column,editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectCallMethod( editor , "AddItem", 1,"Item 1");
_ObjectCallMethod( editor , "AddItem", 2,"Item 2");
_ObjectCallMethod( editor , "AddItem", 3,"Item 3");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Format");
_ObjectSetProperty( column , "FormatColumn", "%0");
_ObjectSetProperty( column , "Caption", _ObjectGetProperty( column , "FormatColumn"));
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(5) = 8421504");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(8) = Def(5)");
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Format");
_ObjectSetProperty( column , "FormatColumn", "%C0");
_ObjectSetProperty( column , "Caption", _ObjectGetProperty( column , "FormatColumn"));
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(5) = 8421504");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(8) = Def(5)");
_ObjectSetProperty( column , "AllowSizing", 0);
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(AddItem(0),0) = 2");
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1928
|
How can I use the ShowNonworkingHours property (hide the non-working hours)
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitScale", 65536);
_ObjectSetProperty( chart , "NonworkingHours", 16253183);
_ObjectSetProperty( chart , "ShowNonworkingHours", 0);
_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1927
|
How can I use the ShowNonworkingDates property (hide the non-working days)
OBJECT chart,g2antt;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "ShowNonworkingUnits", 0);
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1926
|
How can I show/hide bars once the user checks or un-checks a column
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION g2anttEvents_CellStateChanged(OBJECT g2antt, INT Item, INT ColIndex)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(True,19) = `cellstate(0) = 1 ? 0 : 100`");
END
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(True,19) = `cellstate(0) = 1 ? 0 : 100`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1925
|
How can I change the color for all Task bars
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`itembar(0) = `Task``,33) = 65280");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1924
|
Is it possible to automatically select bars only when user selects a new item
// SelectionChanged event - Fired after a new item has been selected.
FUNCTION g2anttEvents_SelectionChanged()
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(True,257) = `itemisselected`");
END
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowSelectObjects", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1923
|
Is it possible to automatically select bars only when the user clicks the column's checkbox
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION g2anttEvents_CellStateChanged(OBJECT g2antt, INT Item, INT ColIndex)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(True,257) = `cellstate(0) = 1`");
END
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "AllowSelectObjects", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1922
|
How do I select all bars on leaf items
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`itemlevel = 1`,257) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1921
|
How can I change the caption for all checked Task bars
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`(cellstate(0) = 1) and (itembar(0) = `Task`)`,3) = ``new caption``");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1920
|
How can I change the caption for all Task bars
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`(itembar(0) = `Task`)`,3) = ``new caption``");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1919
|
How can I change the caption for all bars
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(True,3) = ``new caption``");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1918
|
How can I move all Task bars to end at the same date time
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`(itembar(0) = `Task`)`,514) = `#8/14/2017# - itembar(2)`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1917
|
How can I move all Task bars to start at the same date time
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`(itembar(0) = `Task`)`,514) = `#8/3/2017# - itembar(1)`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1916
|
How can I change the color for checked Task bars
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`cellstate(0) = 1 and itembar(0) = `Task``,33) = 255");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1915
|
How do I resize all Task bars programatically
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`itembar(0) = `Task``,2) = `value + 2`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1914
|
How do I move just the checked Task bars in the chart
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`cellstate(0) = 1 and itembar(0) = `Task``,514) = -2");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1913
|
How do I move all Task bars in the chart
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`itembar(0) = `Task``,514) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1912
|
How do I count all Task bars in the chart
OBJECT bar,chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
Message( _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`itembar(0) = `Task``,256)") );
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1911
|
How do I select bars whose items are checked
OBJECT bar,chart,column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Tasks");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectSetProperty( g2antt , "HeaderVisible", 1);
_ObjectSetProperty( g2antt , "SelBackColor", 15790320);
_ObjectSetProperty( g2antt , "SelForeColor", 0);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "8/1/2017");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
bar = _ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.Bars.Item(`Summary`)");
_ObjectSetProperty( bar , "StartShape", 0);
_ObjectSetProperty( bar , "EndShape", 0);
_ObjectSetProperty( bar , "Shape", 20);
_ObjectSetProperty( chart , "SelBackColor", _ObjectGetProperty( g2antt , "SelBackColor"));
_ObjectSetProperty( chart , "SelBarColor", 8421504);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/2/2017","8/8/2017");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", hChild)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/3/2017","8/10/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", hChild,"Task","8/4/2017","8/12/2017");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod( items , "AddBar", h,"Summary","8/1/2017","8/1/2017","sum");
_ObjectCallMethod( items , "DefineSummaryBars", h,"sum",-3,"");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`cellstate(0) = 1`,257) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1910
|
How can I select all bars, where a specified column matches a specified criteria
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "SelBarColor", 255);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1","K1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","K2","K2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/10/2001","P","P");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","Q","Q");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","M","M");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(`cellcaption(0) = `Task 1``,257) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1909
|
How can I select/unselect all bars
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
_ObjectSetProperty( _ObjectGetProperty( g2antt , "Chart") , "SelBarColor", 255);
items = _ObjectGetProperty( g2antt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/4/2001","K1","K1");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2001","1/7/2001","K2","K2");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2001","1/10/2001","P","P");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/4/2001","Q","Q");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 4"),"Task","1/2/2001","1/4/2001","M","M");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBarEx(True,257) = True");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1908
|
Is it possible to set the background color of the chart for one item and one day
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Items");
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "Item");
h = _ObjectCallMethod( items , "AddItem", "Item");
_ObjectCallMethod( items , "AddBar", h,"","1/2/2001","1/3/2001","Back"," ");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`Back`,7) = 255");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.ItemBar(h,`Back`,29) = False");
_ObjectCallMethod( items , "AddItem", "Item");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1907
|
It is possible to search for an item ( inside the Editor ), case insensitive
OBJECT editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "DropDownList") , "Editor");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectCallMethod( editor , "AddItem", 1,"One");
_ObjectCallMethod( editor , "AddItem", 2,"Two");
_ObjectCallMethod( editor , "AddItem", 3,"Three");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Columns.Item(0).Editor.FindItem(`>ONE`)"));
_ObjectCallMethod( items , "AddItem", _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Columns.Item(0).Editor.FindItem(`>ThRee`)"));
_ObjectCallMethod( items , "AddItem", _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Columns.Item(0).Editor.FindItem(`ONE`)"));
_ObjectCallMethod( items , "AddItem", _ObjectCallMethod(g2antt, "ExecuteTemplate", ".Columns.Item(0).Editor.FindItem(`>tWo`)"));
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1906
|
The text after the BR-tag is in same line as the text before the BR-tag (entire column)
OBJECT column,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DrawGridLines", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Default");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(16) = False");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddItem", "This is the first line.<br>This is the second line.");
_ObjectCallMethod( items , "AddItem", "This is the first line.<br>This is the second line.");
_ObjectCallMethod( items , "AddItem", "This is the first line.<br>This is the second line.");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1905
|
The text after the BR-tag is in same line as the text before the BR-tag (individual)
OBJECT g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DrawGridLines", 1);
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(AddItem(`This is the first line.<br>This is the second line.`),0) = 1");
h = _ObjectCallMethod( items , "AddItem", "<b>This is the first line.<br>This is the second line.</b>");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValueFormat(AddItem(`This is the first line.<br>This is the second line.`),0) = 1");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1904
|
How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control
OBJECT chart,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectSetProperty( g2antt , "DrawGridLines", -1);
chart = _ObjectGetProperty( g2antt , "Chart");
_ObjectSetProperty( chart , "DrawGridLines", -1);
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(g2antt, "TemplatePut", chart)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( g2antt , "BackColorAlternate", 2146496752);
_ObjectSetProperty( g2antt , "BackColorLevelHeader", _ObjectGetProperty( g2antt , "BackColor"));
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Task","1/2/2001","1/12/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 2"),"Task","1/3/2001","1/13/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 3"),"Task","1/2/2001","1/12/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 4"),"Task","1/3/2001","1/13/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 5"),"Task","1/2/2001","1/12/2001");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1903
|
Can I disable an item once the user selects a new value into a different item
// Change event - Occurs when the user changes the cell's content.
FUNCTION g2anttEvents_Change(OBJECT g2antt, INT Item, INT ColIndex, VARIANT NewValue)
OBJECT items;
items = _ObjectGetProperty( g2antt , "Items");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.EnableItem(ItemByIndex(1)) = NewValue");
END
OBJECT editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
ObjectAssociateEvents("g2anttEvents", g2antt);
_ObjectCallMethod( g2antt , "FreezeEvents", -1);
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "ScrollBySingleLine", -1);
_ObjectSetProperty( g2antt , "DrawGridLines", -2);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Q");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "A");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "What's your gender?");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h1,1)");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectCallMethod( editor , "AddItem", 1,"Male");
_ObjectCallMethod( editor , "AddItem", 0,"Female");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = 1");
h2 = _ObjectCallMethod( items , "AddItem", "What's pet name?");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1) = `This is my pet favorite long long long name, that shoul break the line in multiple pieces`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellSingleLine(h2,1) = False");
_ObjectCallMethod( g2antt , "EndUpdate");
_ObjectCallMethod( g2antt , "FreezeEvents", 0);
|
|
1902
|
How can I get a row expanded / enlarged to fit the cell's text (entire column)
OBJECT column,editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "ScrollBySingleLine", -1);
_ObjectSetProperty( g2antt , "DrawGridLines", -2);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Q");
column = _ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "A");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(g2antt, "TemplatePut", column)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "colObj.Def(16) = False");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 5);
_ObjectSetProperty( editor , "Appearance", 8);
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "What's name?");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = `This is my pet favorite long long long name, that shoul break the line in multiple pieces`");
h2 = _ObjectCallMethod( items , "AddItem", "What's your pet name?");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1) = `This is my pet favorite long long long name, that shoul break the line in multiple pieces`");
_ObjectCallMethod( g2antt , "EndUpdate");
|
|
1901
|
How can I get a row expanded / enlarged to fit the cell's text (individual cell)
OBJECT editor,g2antt,items;
g2antt = ObjectByName("AN1") ;
_ObjectCallMethod( g2antt , "BeginUpdate");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( g2antt , "ScrollBySingleLine", -1);
_ObjectSetProperty( g2antt , "DrawGridLines", -2);
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "Q");
_ObjectCallMethod( _ObjectGetProperty( g2antt , "Columns") , "Add", "A");
items = _ObjectGetProperty( g2antt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "What's name?");
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h1)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h1,1) = `This is my pet favorite long long long name, that shoul break the line in multiple pieces`");
h2 = _ObjectCallMethod( items , "AddItem", "What's your pet name?");
editor = _ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellEditor(h2,1)");
_ObjectSetProperty( editor , "EditType", 5);
_ObjectSetProperty( editor , "Appearance", 8);
_ObjectCallMethod(g2antt, "TemplatePut", "Dim iteObj,h2")
_ObjectCallMethod(g2antt, "TemplatePut", items)
_ObjectCallMethod(g2antt, "TemplatePut", h2)
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellValue(h2,1) = `This is my pet favorite long long long name, that shoul break the line in multiple pieces`");
_ObjectCallMethod(g2antt, "ExecuteTemplate", "iteObj.CellSingleLine(h2,1) = False");
_ObjectCallMethod( g2antt , "EndUpdate");
|